home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Main.dxr / 00005_Sound Handlers.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  520 b   |  34 lines
  1. on stopSounds
  2.   sound stop 1
  3.   sound stop 2
  4.   puppetSound(0)
  5.   updateStage()
  6. end
  7.  
  8. on stopSound2
  9.   if soundBusy(2) then
  10.     sound stop 2
  11.   end if
  12. end
  13.  
  14. on DelaySome howLong
  15.   startTimer()
  16.   repeat while the timer < howLong
  17.     nothing()
  18.   end repeat
  19. end
  20.  
  21. on soundClicker playsound
  22.   global gClicked
  23.   if soundBusy(1) then
  24.     puppetSound(0)
  25.   else
  26.     puppetSound(playsound)
  27.     set gClicked to the clickOn
  28.   end if
  29.   if the clickOn <> gClicked then
  30.     puppetSound(playsound)
  31.     set gClicked to the clickOn
  32.   end if
  33. end
  34.